Apple Reference & Presen…ibrary 1991 & 1992 Winter/The Apple Reference & Presentations Library CD Apple Partner Edition Winter 91-92.7z/Image.iso/mac/5-Fonts & Software/Claris HyperCard 2.1/HyperCard 2.1.sea/Appointments With Audio/stack_-1.xml

Extensible Markup Language | 1991-04-23 | 7KB | 22 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
    <name>in</name>
    <id>-1</id>
    <cardCount>2</cardCount>
    <cardID>3019</cardID>
    <listID>4541</listID>
    <cantModify><false /></cantModify>
    <cantDelete><false /></cantDelete>
    <cantAbort><false /></cantAbort>
    <cardSize>
        <width>512</width>
        <height>342</height>
    </cardSize>
    <script>∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞Appointments with AudioVersion 2.1©Copyright 1989-1991 by Apple Computer, Inc.All Rights ReservedTHE MESSAGE HANDLERS USED IN THIS SCRIPT:closeStack,createTheMenu,deleteStackMenu,exportText,goOverview,goToAppointments,openStack,resumeStack,setLocationCheckMark,suspendStack,writeExportedTextTHE FUNCTION HANDLERS USED IN THIS SCRIPT:lastHCItem,menuItemData,menuMsgData,theFields,wrongStack"--∆" indicates strings which will need localization∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞-----  System Handlers  ---------------------------------------------on openStackif wrongStack() then pass openStack -- in case stackInUsecreateTheMenupass openStackend openStackon closeStackif wrongStack() then pass closeStack -- in case stackInUseglobal AppointmentsFinddeleteStackMenuput empty into AppointmentsFind -- clean uppass closeStackend closeStackon openBackgroundchangeMenuItemStatussetLocationCheckMarkpass openBackgroundend openBackgroundon resumeif wrongStack() then pass resume -- in case stackInUsecreateTheMenupass resumeend resumeon suspendif wrongStack() then pass suspend -- in case stackInUsedeleteStackMenupass suspendend suspendon resumeStackif wrongStack() then pass resumeStack -- in case stackInUsecreateTheMenupass resumeStackend resumeStackon suspendStackif wrongStack() then pass suspendStack -- in case stackInUsedeleteStackMenupass suspendStackend suspendStackfunction wrongStackget the value of word 2 of the long name of mereturn (it is not line 1 of the stacks)end wrongStack-----  Menu Handlers  -----------------------------------------------on createTheMenuglobal StackMenuput "Utilities" into StackMenu -- ∆-- remove any existing menus that might have the same nameif there is a menu StackMenu then delete menu StackMenucreate menu StackMenuput menuItemData() into menu StackMenu with menuMsg menuMsgData()changeMenuItemStatussetLocationCheckMarkend createTheMenufunction menuItemData -- ∆ menu items for the Utilities menureturn "Go to a Day...,-,Print Appointments…," & ¬"-,Export Text…,-,Appointments,Stack Overview" --∆end menuItemDatafunction menuMsgDatareturn "goToADay,empty,printReport,empty," & ¬"exportText,empty,goToAppointments,goOverview" --∆end menuMsgDataon deleteStackMenuglobal StackMenuif StackMenu is in the menus then delete menu StackMenuend deleteStackMenuon setLocationCheckMarkglobal StackMenuif there is a menu StackMenu thenrepeat with i = 7 to 8get item i of menuItemData()set the checkMark of menuItem it of menu ¬StackMenu to (it is short name of this bg)end repeatend ifend setLocationCheckMarkon changeMenuItemStatusglobal StackMenurepeat with i = 1 to ((number of menuItems in menu StackMenu) - 2)set enabled of menuItem i of menu StackMenu to¬("Appointments" is short name of this bg)end repeatend changeMenuItemStatus-----  Navigation Handlers  -----------------------------------------on goToAppointments -- called by the menugo cd 1 of bg "Appointments"end goToAppointmentson goOverview -- called by the menugo cd "Stack Overview"end goOverview-----  Export Text Handlers  ----------------------------------------on exportTextput number of cds in bg "Appointments" into numCardsask file "Export text to the file:" with "Appointments Text File" -- ∆if the result is "Cancel" or it is empty then exit to HyperCardput it into fileNamewriteExportedText numCards,fileNameput "cards" into info -- assume more than 1 card as the default -- ∆if numCards = 1 then put "card" into info -- ∆answer "Text from" && numCards && info && ¬"was exported to the new file “" & lastHCItem(":",fileName) & "” successfully." -- ∆end exportTexton writeExportedText numCards,fileNamelock screenpush cardset lockMessages to truego first cd of bg "Appointments"put theFields() into theListopen file fileNamerepeat with currentCard = 1 to numCardsset cursor to busyput empty into theTextput "∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞" && bg fld "Title" && ¬"∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞" & return & return after theTextput "AM-" into AmOrPmrepeat with i = 1 to 24set cursor to busyif i = 8 then put "PM-" into AmOrPmif i = 20 then put "AM-" into AmOrPmput ((i+17)) mod 12 into theTimeif theTime is "0" then put "12" into theTimeput "-" & theTime && AmOrPm & return after theTextput value of (item i of theList) & return & return after theTextend repeatput return & return into last char of theTextwrite theText to file fileNamego next card of this bkgndend repeatclose file fileNamepop cardunlock screenset lockMessages to falseend writeExportedText-----  Utility Handlers  --------------------------------------------function lastHCItem delim,theText-- returns the portion of <theText> that follows the last <delim>if delim is in theText thenput lastHCItem(delim,char offset(delim,theText) + 1 to ¬length(theText) of theText) into theTextend ifreturn theTextend lastHCItem-----  Data Handlers  ----------------------------------------------function theFieldsput "71,75,77,82,84,89,90,92,149,96,98,100,104,110," &¬"109,134,136,118,121,142,125,128,130,132" into theListput empty into theFldsrepeat with i = 1 to number of items in theListput "bg fld id" && item i of theList & "," after theFldsend repeatdelete last char of theFldsreturn theFldsend theFields</script>
    <background id="2603" file="background_2603.xml" name="Appointments" />
    <background id="21753" file="background_21753.xml" name="Stack Overview" />
    <card id="3019" file="card_3019.xml" marked="false" name="1991,4,24,0,0,0,4" owner="2603" />
    <card id="3794" file="card_3794.xml" marked="false" name="Stack Overview" owner="21753" />
</stack>